home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / TextSpacing.asc < prev    next >
Text File  |  1980-03-10  |  712b  |  30 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. A$="  amigazette 83  "
  12. A=Amos Rastport
  13. '
  14. While Mouse Key=0
  15.    For T=0 To 10
  16.       Wb Curs A,20,20
  17.       Wb Text Spacing T To A
  18.       Wait Vbl 
  19.       Wb Gfx Text A$,10,10 To A
  20.       Wait 2
  21.    Next T
  22.    For T=9 To 1 Step -1
  23.       Wb Curs A,20,20
  24.       Wb Text Spacing T To A
  25.       Wait Vbl 
  26.       Wb Gfx Text A$,10,10 To A
  27.       Wait 2
  28.    Next T
  29. Wend 
  30.